Top 10k strings from Stock Market (1983)(ASP Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   3 ;W$;W$;W$;W$;W$;
   2 *R;"% OF BANK BALANCE "
   2 (B-B(P))+1
   1 Y,X+Q;A$(Q);
   1 XX=XX+H(Q,V)*P(V):
   1 XX=XX+B(Q)-L(Q)
   1 TOP ";A$;"ing "
   1 TC=N(I)-T(I)
   1 T(I)=N(I):
   1 P(I)=P(I)+PC:
   1 N(I)=N(I)+H(K,I):
   1 LEADZINCTIN GOLD
   1 L(K)=L(K)+L(K)*((BR+2
   1 H(P,J)=H(P,J)-SS:
   1 H(P,J)=H(P,J)+SS
   1 H(I,R)=H(I,R)+
   1 CAPITAL GAINS TAX
   1 B=SS*P(J):
   1 B<B(P)+CR-.5
   1 B(P)=B(P)-L(P):
   1 B(P)=B(P)-L(P)
   1 B(P)=B(P)-B:
   1 B(P)=B(P)-.1
   1 B(P)=B(P)+SS*P(J)
   1 B(P)=B(P)+H(P,J)*P(J):
   1 B(P)=B(P)+.1
   1 B(P)=B(P)+
   1 B(K)=B(K)-L(K)
   1 B(K)=B(K)+H(K,J)*P(J)
   1 B(K)=B(K)+B(K)*(BR/100
   1 B(K)=B(K)+.2
   1 B(I)=B(I)+.1
   1 A$="sell":
   1 A$="UP BY ":
   1 A$="HOLDING AT PRESENT VALUE":
   1 A$="DOWN BY ":
   1 A$="BANK INTEREST RATE  ":
   1 ;W$;W$;W$;W$;W$;W$;W$;W$;
   1 ;W$;W$;W$;W$;W$;W$;
   1 ;W$;W$;W$;
   1 ;H$(I);" BANKRUPT - SHARES WORTHLESS":
   1 ;"You need more cash to repay Bank":
   1 ;"You do not own that many!":
   1 ;"YOU ARE FORCED INTO LIQUIDATION!":
   1 ;"YOU ARE BANKRUPT SIR!"
   1 ;"TAX MAN RELENTS! - NO TAX DEMAND":
   1 ;"Sorry Sir, you cannot raise    enough cash."
   1 ;"Select level of difficulty"
   1 ;"SHARES SOLD OF AT ";20
   1 ;"Payment = ";R1*10
   1 ;"PAYMENT SUSPENDED DUE TO STRIKE ":
   1 ;"OF `";L(P):
   1 ;"MARKET PRICES  ";
   1 ;"IS A MILLIONAIRE":
   1 ;"How many players? (Max. 6)":
   1 ;"How many ";H$(J);" shares will you"," ";A$;" Sir?
   1 ;"End of turn 
   1 ;"ERROR IN TAX OFFICE! - NO REFUND":
   1 ;"Do you want to play again?   ";
   1 ;"Do you want to end the game?":
   1 ;"Do you want instructions?"
   1 ;"CAPITAL GAINS TAX INVESTIGATION":
   1 ;"Bonus for all ";H$(R);" Shareholders":
   1 ;"BANK UNHAPPY ....":
   1 ;"BANK ALMOST FAILED - NO INTEREST":
   1 ;"All shares sold at face value"
   1 ;">> G A M E  O V E R <<":
   1 ;"+BANKRUPT+";
   1 ;"% of share value"
   1 ;" by ";N$(P);
   1 ;" Zinc Inc."
   1 ;" You owe the bank ` ";L(P);" "
   1 ;" You owe the Bank ` ";L(P);" "
   1 ;" Which shares will you ";A$;" Sir?";
   1 ;" Type ""
   1 ;" Tin Plate"
   1 ;" TRADING PRACTICES SUSPECT ";
   1 ;" TAX REFUND ":
   1 ;" TAX OFFICIALS INVESTIGATE ":
   1 ;" T.I.A.F."
   1 ;" Shares held
   1 ;" Score ":
   1 ;" S. Beere"
   1 ;" REFUND = ";10
   1 ;" Press ENTER to start the game  ";
   1 ;" Player ";
   1 ;" Multibody"
   1 ;" MARKET VERY WEAK ":
   1 ;" Lead Mine"
   1 ;" Gold Mine"
   1 ;" FOR EVERY TWO SHARES HELD ":
   1 ;" Erskine"
   1 ;" DEMAND OF ";10
   1 ;" DEALINGS IN ";H$(J);" SUSPENDED SIR ":
   1 ;" BANK FAILS!! ":
   1 ;" B Y E  F O R  N O W ":
   1 ;" Amount Made ";
   1 ;" ALL MARKET DEALINGS SUSPENDED ":
   1 ;" ALL DEALINGS IN ";H$(I);" SUSPENDED ":
   1 ;" A NEW BANK HAS BEEN SET UP ":
   1 ;" *  I N S T R U C T I O N S   * ";" *  
   1 ;" ";H$(R);" BONUS ISSUE OF 1 SHARE"
   1 ;" ";H$(I);" TAKEN OVER BY A CONSORTIUM":
   1 ;" ";H$(I);" ARE TRADING AGAIN ":
   1 ;" !! NEWSFLASH !! ":
   1 ;"  You do not have enough cash.":
   1 ;"  Enter name of player ";K;"  "
   1 ;"   BANK TAKES LOAN REPAYMENT    ";W$;
   1 ;"    TAKE-OVER BID HAS FAILED!   ":
   1 ;"    Press ENTER to continue
   1 ," at the normal rate."''"
   1 *R;"% OF VALUE ":
   1 *R1*H(I,R)*P(R):
   1 *R*P(I)*H(K,I):
   1 *(B(K)-1000
   1 )+B(P))-L(P))
   1 (L(P)+B-B(P))+1
   1 (B(K)/(TU+DI*5
   1 ''" The market may be ""BULLED"" or   ""BEARED"" by heavy buying or
   1 ''" During the course of the game   various 
   1 '"The aim of STOCKS is to make    money by buying and selling
   1 '" The Bank will lend you `";
   1 '" High prices are likely to fall. Low prices are likely to rise."
   1 "LEAD","ZINC","TIN","GOLD"
   1 "1(easy) to 4(hard) .... ";
   1 "''''" When one or more players have   
   1 "" to sell ";
   1 "" to end your turn "
   1 "" to buy, ""
   1 " ";N$(K);
   1  the game is finished."
   1  shares in four mining companies."''"At the start of the game each   player has `1000 in the bank andthe price of each share is set  at approximately half it's
   1  selling."
   1  messages will interrupt play."''''"Watch out for 
   1  maximum value."''"When all the players have boughtor sold as many shares as they  want, the price of the shares isadjusted so that:"
   1  Will you borrow?":
   1  ===MARKET NEWS===
   1  (If none enter 0)"
   1  !! NEWSFLASH !!